home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol402 / polyops.arc / PNORM.FOR < prev    next >
Encoding:
Text File  |  1985-11-29  |  1.2 KB  |  40 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE PNORM
  5. C
  6. C        PURPOSE
  7. C           NORMALIZE COEFFICIENT VECTOR OF A POLYNOMIAL
  8. C
  9. C        USAGE
  10. C           CALL PNORM(X,IDIMX,EPS)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           X      - VECTOR OF ORIGINAL COEFFICIENTS, ORDERED FROM
  14. C                    SMALLEST TO LARGEST POWER. IT REMAINS UNCHANGED
  15. C           IDIMX  - DIMENSION OF X. IT IS REPLACED BY FINAL DIMENSION
  16. C           EPS    - TOLERANCE BELOW WHICH COEFFICIENT IS ELIMINATED
  17. C
  18. C        REMARKS
  19. C           IF ALL COEFFICIENTS ARE LESS THAN EPS, RESULT IS A ZERO
  20. C           POLYNOMIAL WITH IDIMX=0 BUT VECTOR X REMAINS INTACT
  21. C
  22. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  23. C           NONE
  24. C
  25. C        METHOD
  26. C           DIMENSION OF VECTOR X IS REDUCED BY ONE FOR EACH TRAILING
  27. C           COEFFICIENT WITH AN ABSOLUTE VALUE LESS THAN OR EQUAL TO EPS
  28. C
  29. C     ..................................................................
  30. C
  31.       SUBROUTINE PNORM(X,IDIMX,EPS)
  32.       DIMENSION X(1)
  33. C
  34.     1 IF(IDIMX) 4,4,2
  35.     2 IF(ABS(X(IDIMX))-EPS) 3,3,4
  36.     3 IDIMX=IDIMX-1
  37.       GO TO 1
  38.     4 RETURN
  39.       END
  40.